10 FORI=631TO642:READJ:POKEI,J:NEXT:POKE198,12
20 POKE53280,0:POKE53281,0:PRINT"[147]RUN"
30 PRINT"LOAD"CHR$(34)"CSX.BAS"CHR$(34)",";
40 IFPEEK(186)<8ORPEEK(186)>15THENPOKE186,8
50 PRINTPEEK(186)
60 PRINT"";:POKE646,0:LIST1765-
200 DATA 17,13,19,13,13,13,13,13,13,13,17,13
1765 INPUT "[159][213]SE [158][209][215][203]IE[159] AUTO DE-ARC  Y[157][157][157]";QK$:IF QK$<>"Y" THEN 1770
1767 INPUT "[159][196]E-ARCING [212][207] A 1541 OR 1571  Y[157][157][157]";MD$
1775 IFMD$="Y"THENPRINT#14,"M-W";CHR$(105)CHR$(0)CHR$(1)CHR$(1)
1923 IFMD$<>"Y"THEN1930
1925 POKE631,13:POKE632,13:POKE633,13:POKE198,3
1927 IFA$<>".DAT"ANDA$<>".NDX"THENPOKE631,ASC("N"):POKE198,2